Acala Pools

Row

#>    token1Id token0Id        poolId           timestamp token0Amount
#> 1:     AUSD      ACA lp://ACA/AUSD 2022-02-16T00:00:00      1116480
#> 2:     AUSD      ACA lp://ACA/AUSD 2022-02-17T00:00:00      1308503
#> 3:     AUSD      ACA lp://ACA/AUSD 2022-02-18T00:00:00      1405605
#> 4:     AUSD      ACA lp://ACA/AUSD 2022-02-19T00:00:00      1540526
#> 5:     AUSD      ACA lp://ACA/AUSD 2022-02-20T00:00:00      2124204
#> 6:     AUSD      ACA lp://ACA/AUSD 2022-02-21T00:00:00      2674247
#>    token1Amount token0Price token1Price feeRateUSD token0TVL token1TVL totalTVL
#> 1:      1650507    1.478312           1  2082.0627   1650507   1650507  3301014
#> 2:      1747582    1.335558           1   941.6783   1747582   1747582  3495163
#> 3:      1837877    1.307535           1  1758.4880   1837877   1837877  3675754
#> 4:      1938973    1.258643           1   824.2013   1938973   1938973  3877946
#> 5:      2424919    1.141566           1  1214.6460   2424919   2424919  4849837
#> 6:      2866197    1.071777           1  1830.6009   2866197   2866197  5732393
#>    txCount          adj0          adj1   tvlUSD       date     test
#> 1:    2847 1000000000000 1000000000000 3301.014 2022-02-16 1.478312
#> 2:    1607 1000000000000 1000000000000 3495.163 2022-02-17 1.335558
#> 3:    1358 1000000000000 1000000000000 3675.754 2022-02-18 1.307535
#> 4:    1073 1000000000000 1000000000000 3877.946 2022-02-19 1.258643
#> 5:     945 1000000000000 1000000000000 4849.837 2022-02-20 1.141566
#> 6:     841 1000000000000 1000000000000 5732.393 2022-02-21 1.071777

Row

Row

Row

Karura Pools

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

---
title: "Acala / Karura Daily Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(dygraphs)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}


# k_tdd <- getTokenDailyData_acala_dex("karura")
# k_tdd[, tvl := tvl / 1e3]
# k_tdd[, timestamp := as.Date(timestamp)]
# 
# a_tdd <- getTokenDailyData_acala_dex("acala")
# a_tdd[, tvl := tvl / 1e3]
# a_tdd[, timestamp := as.Date(timestamp)]

maintxt <- "Total Value Locked for "

k_dp_dex <- getDailyPool_acala_dex("karura")
k_dp_dex[, tvlUSD := totalTVL / 1e3]
k_dp_dex[, date := as.Date(timestamp)]
# k_dp <- getPoolDayData_acala("karura")
# k_dp[, tvlUSD := tvlUSD / 1e3]
# k_dp[, token0Price := token0Close]
# k_dp[, date := as.Date(date)]
# k_both <- merge(k_dp,
#                 k_dp_dex,
#                 by = c("poolId","date"),
#                 all = TRUE,
#                 suffixes = c("","_DEX"))
k_pools <- sort(unique(k_dp_dex$poolId))


a_dp_dex <- getDailyPool_acala_dex("acala")
a_dp_dex[, tvlUSD := totalTVL / 1e3]
a_dp_dex[, date := as.Date(timestamp)]

a_dp_dex[, test := token1Amount / token0Amount]
a_dp_dex[, .(token0Id, token1Id, token0Price, token1Price, test)]

# a_dp <- getPoolDayData_acala("acala")
# a_dp[, tvlUSD := tvlUSD / 1e3]
# a_dp[, token0Price := token0Close]
# a_dp[, date := as.Date(date)]
# a_both <- merge(a_dp,
#                 a_dp_dex,
#                 by = c("poolId","date"),
#                 all = TRUE,
#                 suffixes = c("","_DEX"))
a_pools <- sort(unique(a_dp_dex$poolId))

#    "token0Amount": "2461670866930004326",
#           "token1Amount": "1872076768294621",
#           "tvlUSD": "4923321763900343588776521",
#           "token0Close": "773400515"
#    
#    (2461670866930004326 * 773400515) / 1e18
#    15263590546
#    
# x  "exchange0": "1478312353408",
#           "exchange1": "676447029407"
# 1/.67

   
```

# Acala Pools {.tabset}


Row
----

```{r}
head(a_dp_dex)

pool <- a_pools[1]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
  
  
dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- a_pools[2]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- a_pools[3]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- a_pools[4]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```


# Karura Pools {.tabset}

Row
----

```{r}

pool <- k_pools[1]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


```


Row
----

```{r}

pool <- k_pools[2]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[3]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[4]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[5]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[6]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[7]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[8]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[9]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[10]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[11]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[12]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[13]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[14]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

pool <- k_pools[15]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))


dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
  dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))

```

Row
----

```{r}

if (length(k_pools) >= 16) {

  pool <- k_pools[16]
  dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
          main = maintxt %+% pool,
          ylab = "TVL in thousands ($)")  %>% 
    dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
  
  
  dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
          main = "Token 0 Amount")  %>% 
    dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
  
  
  dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
          main = "Token 1 Amount")  %>% 
    dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
}

```

Row
----

```{r}

if (length(k_pools) >= 17) {
  pool <- k_pools[17]
  dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
          main = maintxt %+% pool,
          ylab = "TVL in thousands ($)")  %>% 
    dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
  
  
  dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
          main = "Token 0 Amount")  %>% 
    dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
  
  
  dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
          main = "Token 1 Amount")  %>% 
    dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
}

```

Row
----

```{r}

if (length(k_pools) >= 18) {
  pool <- k_pools[18]
  dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
          main = maintxt %+% pool,
          ylab = "TVL in thousands ($)")  %>% 
    dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
  
  
  dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
          main = "Token 0 Amount")  %>% 
    dySeries("token0Amount", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
  
  
  dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
          main = "Token 1 Amount")  %>% 
    dySeries("token1Amount", stepPlot = TRUE, fill = TRUE) %>% 
    dyOptions(maxNumberWidth = 20, stackedGraph = FALSE, colors=c("red"))
}

```